VERSION 5.00
Begin VB.Form frmExtract 
   Caption         =   "Extract from Remote Server"
   ClientHeight    =   2625
   ClientLeft      =   5055
   ClientTop       =   5340
   ClientWidth     =   5070
   LinkTopic       =   "Form1"
   ScaleHeight     =   2625
   ScaleWidth      =   5070
   Begin VB.PictureBox Picture1 
      Height          =   1150
      Left            =   240
      Picture         =   "frmExtract.frx":0000
      ScaleHeight     =   1095
      ScaleWidth      =   4515
      TabIndex        =   1
      Top             =   240
      Width           =   4575
   End
   Begin VB.CommandButton cmdExtract 
      Caption         =   "Extract From IS"
      Height          =   735
      Left            =   1200
      TabIndex        =   0
      Top             =   1560
      Width           =   2175
   End
End
Attribute VB_Name = "frmExtract"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdExtract_Click()

Dim dllValidation           As clsValidate
Dim strValidate             As String

Dim strExtractRequest       As String
Dim strExtractCancelRequest As String
Dim strExtractRequestForms  As String
Dim strExtractIRP3A         As String
Dim strExtractOtherAmount   As String
Dim strExtractSequences     As String
Dim strInsertDate           As String


Set dllValidation = New clsValidate
strValidate = dllValidation.Extract(strExtractRequest, strExtractCancelRequest, _
                                    strExtractRequestForms, strExtractIRP3A, _
                                    strExtractOtherAmount, strExtractSequences, _
                                    strInsertDate)
    
frmMessage.Show
DoEvents
frmMessage.lblMessage.Caption = strExtractRequest & vbCrLf & _
                                strExtractCancelRequest & vbCrLf & _
                                strExtractRequestForms & vbCrLf & _
                                strExtractIRP3A & vbCrLf & _
                                strExtractOtherAmount & vbCrLf & _
                                strExtractSequences & vbCrLf & _
                                strInsertDate

Unload frmExtract

End Sub

